"0","plotting_objs <- ls()[grep(""clust"", ls())]"
"0","print(plotting_objs)"
"1"," [1]"
"1"," ""clust_bray_neighbor"""
"1"," ""clust_bray_upgma""   "
"1"," ""clust_bray_ward.D2"" "
"1"," ""clust_bray_wpgma""   "
"1","
"
"1"," [5]"
"1"," ""clust_chao_neighbor"""
"1"," ""clust_chao_upgma""   "
"1"," ""clust_chao_ward.D2"" "
"1"," ""clust_chao_wpgma""   "
"1","
"
"1"," [9]"
"1"," ""clust_euc_neighbor"" "
"1"," ""clust_euc_upgma""    "
"1"," ""clust_euc_ward.D2""  "
"1"," ""clust_euc_wpgma""    "
"1","
"
"0","# Note: I'm writing the cluster diagram to a pdf file, so it's easier to read. You can uncomment the pdf() and dev.off() lines to print to the screen, or just not copy those lines"
"0","pdf(file=""output/cluster_diagrams.pdf"", height=11, width=8.5)"
"0","  par(mfcol=c(4,3), mar=c(2,4,1,1)+.01)"
"0","  for (i in 1:length(plotting_objs)){"
"0","    plot(get(plotting_objs[i]), cex=0.75, xlab=NA, sub=NA, main=plotting_objs[i], hang=-.1)"
"0","  }"
